emp=0
codemple=0001
while test $codemple -ne 0000
do
	echo Introduzca su código de empleado:
	read codemple	
	
	while test $emp -eq 0
	do
		num=`expr substr $codemple 1 1`
		if test $num=" " 

		then
			echo El código que ha introducido es incorrecto...
			echo Por favor introduzca un codigo comprendido entre 1001 y 1399
			echo Vuelva a teclear el código de empleado:
			read codemple
			emp=1
		else
			cont=0
			numer=0
			while test $numer!=" "
			do
				cont=`expr $cont +1`
				numer=`expr substr $codemple $cont `expr $cont + 1``
			done
			if test $cont -gt 4
			then
				echo El código que ha introducido es mayor de 1399
				echo Por favor introduzca un código comprendido entre 1001 y 1399:
                        	read codemple
                        	emp=1
			fi
			if test $cont -lt 4
			then
				echo El código que ha introducido es menor de 1001
				echo Por favor introduzca un código comprendido entre 1001 y 1399:
				read codemple
				emp=1	
			fi
		fi
	done
	
	if test $emp -eq 0
	then
		depto=`expr substr $codemple 1 2`
		case $depto in
			10)	depto="nominas";;
			11)	depto="ventas";;
			12)	depto="producción";;
			13) 	depto="mantenimiento";;
			*) 	El código no puede contener caracteres. Teclee un código numérico:
				read codemple;;
		esac
	fi
done
echo Este es el codigo: $codemple
